subroutine print_object(lunit,ounit,&
     total_time,total_dpa,total_sdpa,&
     total_loop,temp,nout,myrank)
  use param
  implicit none

  integer,intent(in) :: lunit,ounit,myrank
  real(dbl),intent(in) :: total_time,&
       total_dpa,total_sdpa,total_loop,temp,nout

  call print_count_obj(lunit,ounit,&
       total_time,total_dpa,total_sdpa,total_loop,&
       temp,nout,myrank)

#ifdef DEBUG
  ! call print_sim_obj(lunit)
  ! call print_event_profile(lunit)
  ! call print_event_table(lunit)
  ! call print_del_event_table(lunit)
  ! call print_spont_event_table(lunit)
#endif

  return

end subroutine print_object
